﻿Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class repReservasXFechas
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            'Fijamos fechas por defecto para los calendarios
            Calendario1.SelectedDate = Calendario1.TodaysDate
            Calendario2.SelectedDate = Calendario2.TodaysDate

        End If

    End Sub

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReporte.Click

        'crvReservasXFechas.Visible = False
        lblmensaje.Visible = False
        Dim reporte As New ReportDocument
        reporte.Load(Server.MapPath("repReservasXFechas.rpt"))

        'Instanciamos la clase
        Dim capanegocios As New ReservaBL
        'Instanciamos la entidad 
        Dim objeto As New BE.ReservaBE
        'Llenamos la propiedad que nos interesa 
        objeto.fecha = Calendario1.SelectedDate
        objeto.fecha2 = Calendario2.SelectedDate

        'Si hay datos hacemos visible al visor para que muestre el reporte
        If capanegocios.BuscarReservaxFechas(objeto).Tables("ReservsaxFechas").Rows.Count > 0 Then
            'crvReservasXFechas.Visible = True
            reporte.SetDataSource(capanegocios.BuscarReservaxFechas(objeto).Tables("ReservsaxFechas"))
            'crvReservasXFechas.ReportSource = reporte
            'crvReservasXFechas.RefreshReport()
        Else
            lblmensaje.Visible = True
            lblmensaje.Text = "No existen reservas entre el " & CStr(Calendario1.SelectedDate) & " y el " & Calendario2.SelectedDate
        End If
        capanegocios = Nothing
        objeto = Nothing

    End Sub


   
   

End Class
